home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)ge.d64 / octopus.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  182 lines

  1. 2 PRINT"[147]":POKE53280,0:POKE53281,0
  2. 4 GOSUB1000
  3. 5 DIMB%(4,4),C%(4),D%(4)
  4. 7 XX=0
  5. 10 FORI=0TO4:FORJ=0TO4:READA:B%(I,J)=A:NEXTJ,I
  6. 11 DATA10,14,17,21,27
  7. 12 DATA10,14,17,21,26
  8. 13 DATA10,14,17,21,25
  9. 14 DATA9,14,17,21,24
  10. 15 DATA8,13,16,21,23
  11. 16 FORI=0TO4:D%(I)=5:NEXTI
  12. 17 FORI=0TO4:C%(I)=1:NEXTI
  13. 20 PRINT"[147]"
  14. 23 PRINT"[144]        [209]   [209]   [209]   [209] [209]"
  15. 24 PRINT"        [209]   [209]  [209]   [209] [209]"
  16. 25 PRINT"         [209]  [209] [209]   [209] [209]"
  17. 30 PRINT"         [209]  [209] [209]  [209] [209]"
  18. 35 PRINT"          [209] [209] [209] [209] [209]"
  19. 40 PRINT"          [209] [209] [209] [209][209]"
  20. 45 PRINT"    [169]    [223][169] [223][169]   [146]"
  21. 50 PRINT"   [169]             [146]"
  22. 55 PRINT"  [169]        [159][218][144]  [159][218][144]  [146]"
  23. 60 PRINT"           [159][218][144]  [159][218][144]  [146]"
  24. 65 PRINT"                 [146]"
  25. 70 PRINT"  [223]          [146][169]"
  26. 75 PRINT"   [223]        [146][169]"
  27. 80 PRINT"    [223]      [146][169]"
  28. 85 PRINT"     [223]   [146][169]"
  29. 90 PRINT""
  30. 95 PRINT"                                [159][223]  [223][146]"
  31. 100 PRINT"                                [144][169]   [146]"
  32. 101 PRINT"                                [159]   [144] [146]"
  33. 102 PRINT"                                [159]   [144][146][169]"
  34. 103 V=53248
  35. 104 S=0
  36. 105 PRINT""TAB(30)"SCORE";S
  37. 107 POKE(V+31),0
  38. 110 POKEV+21,2
  39. 120 POKEV+40,3
  40. 130 POKE2041,13
  41. 135 FORI=0TO62:READQ:POKE832+I,Q:NEXT
  42. 136 DATA0,0,0,0,0,0,0,48,0,0,120,0,0,120,0,0,48,0,0,48,0,0,120,0
  43. 137 DATA0,120,0,0,120,0,0,112,0,0,112,0,255,255,255,127,255,254,63,255,252
  44. 138 DATA31,255,248,15,255,240,7,255,254,3,255,196,1,255,128,0,0,0
  45. 139 S=0
  46. 140 X=26:D=1
  47. 145 GETTD$:P=PEEK(203)
  48. 146 IFP=37ANDX<250THENX=X+8
  49. 147 IFP=29ANDX=<250ANDX>26THENX=X-8
  50. 148 IFX=250THENGOSUB600
  51. 149 IFX=26ANDD=0THEND=1
  52. 150 POKEV+2,X
  53. 160 POKEV+3,60
  54. 161 XX=XX+1
  55. 162 IF LL=1ANDXX<4THENGOTO145
  56. 163 IF LL=2ANDXX<2THENGOTO145
  57. 164 XX=0
  58. 170 GOTO240
  59. 240 A=INT(RND(1)*5+1)
  60. 245 A=A-1
  61. 250 IFC%(A)=1THEND%(A)=D%(A)-1
  62. 255 IFC%(A)=1GOTO300
  63. 260 IFC%(A)=0THEND%(A)=D%(A)+1
  64. 262 IFC%(A)=0ANDD%(A)=4THENC%(A)=1
  65. 265 IFC%(A)=0GOTO500
  66. 270 REM
  67. 275 GOTO145
  68. 280 IFD%(A)=0GOTO400
  69. 300 OND%(A)+1GOTO350,340,330,320,310
  70. 310 POKE(1304+B%(4,A)),81
  71. 312 POKE(55576+B%(4,A)),0:GOTO270
  72. 320 POKE(1264+B%(3,A)),81
  73. 322 POKE(55536+B%(3,A)),0:GOTO270
  74. 330 POKE(1224+B%(2,A)),81
  75. 332 POKE(55496+B%(2,A)),0:GOTO270
  76. 340 POKE(1184+B%(1,A)),81
  77. 342 POKE(55456+B%(1,A)),0:GOTO270
  78. 350 POKE(1144+B%(0,A)),81
  79. 352 POKE(55416+B%(0,A)),0
  80. 354 C%(A)=0
  81. 400 IFD%(0)=0AND(X=98ORX=90ORX=106)THENGOSUB700
  82. 410 IFD%(1)=0AND(X=130ORX=122ORX=138)THENGOSUB700
  83. 420 IFD%(2)=0AND(X=154ORX=146ORX=162)THENGOSUB700
  84. 430 IFD%(3)=0AND(X=186ORX=178ORX=194)THENGOSUB700
  85. 440 IFD%(4)=0AND(X=234ORX=226)THENGOSUB700
  86. 500 OND%(A)+1GOTO550,540,530,520,510
  87. 510 POKE(1304+B%(4,A)),32
  88. 512 POKE(55576+B%(4,A)),0
  89. 514 GOTO275
  90. 520 POKE(1264+B%(3,A)),32
  91. 522 POKE(55536+B%(3,A)),0
  92. 524 GOTO275
  93. 530 POKE(1224+B%(2,A)),32
  94. 532 POKE(55496+B%(2,A)),0
  95. 534 GOTO275
  96. 540 POKE(1184+B%(1,A)),32
  97. 542 POKE(55456+B%(1,A)),0
  98. 544 GOTO275
  99. 550 POKE(1144+B%(O,A)),32
  100. 552 POKE(55416+B%(0,A)),0
  101. 554 GOTO275
  102. 600 IFD=1THENS=S+20
  103. 601 PRINT""TAB(35);S
  104. 602 IFS=100 GOTO650
  105. 604 D=0
  106. 605 RETURN
  107. 650 PRINT"[147][154]          ON BEHALF"
  108. 655 PRINTTAB(15)"OF ANDRONOMEA"
  109. 660 PRINTTAB(17)"THANKS"
  110. 665 FORT=1TO5000:NEXT
  111. 670 GOTO702
  112. 700 PRINT"OVER[144]           [146]"
  113. 701 GOSUB710
  114. 702 POKEV+21,0:RESTORE
  115. 703 PRINT"[147][154]         TO PLAY AGAIN HIT Y/N"
  116. 704 GETZ$:IFZ$=""GOTO704
  117. 705 IFZ$="N"THENPRINT"[147]":END
  118. 706 IFZ$="Y"THEN RUN2
  119. 710 S=54272
  120. 720 FORL=STOS+24:POKEL,0:NEXT
  121. 725 POKES+5,9:POKES+6,0
  122. 730 POKES+24,15
  123. 740 READHF,LF,DR
  124. 750 IFHF<0THENRETURN
  125. 760 POKES+1,HF:POKES,LF
  126. 770 POKES+4,17
  127. 780 FORT=1TO.8*DR:NEXT
  128. 790 POKES+4,16:FORT=1TO50:NEXT
  129. 795 GOTO740
  130. 800 DATA45,198,750,45,198,750
  131. 810 DATA45,198,500,51,97,250
  132. 820 DATA57,172,750
  133. 830 DATA28,214,500,25,177,250
  134. 840 DATA28,214,500,30,63,250
  135. 850 DATA34,75,1500
  136. 855 DATA45,198,250,45,198,250,45,198,250
  137. 860 DATA34,75,250,34,75,250,34,75,250
  138. 865 DATA28,214,250,28,214,250,28,214,250
  139. 870 DATA22,227,250,22,227,250,22,227,250
  140. 875 DATA68,149,500,61,126,250
  141. 880 DATA57,172,500,51,97,250
  142. 885 DATA45,198,1500
  143. 890 DATA-1,-1,-1
  144. 900 END
  145. 1000 A$="***  ** *** *** *** * *  **":X=LEN(A$):Z$="":GOSUB1100
  146. 1010 A$="* * *    *  * * * * * * *":X=LEN(A$):Z$="":GOSUB1100
  147. 1020 A$="* * *    *  * * *** * *  **":X=LEN(A$):Z$="":GOSUB1100
  148. 1030 A$="* * *    *  * * *   * *    *":X=LEN(A$):Z$="":GOSUB1100
  149. 1040 A$="***  **  *  *** *   ***  **":X=LEN(A$):Z$="":GOSUB1100
  150. 1045 PRINT"[147][154]"
  151. 1050 POKE53281,6:POKE53280,14
  152. 1055 PRINT:PRINTTAB(10)"ANOTHER GAME"
  153. 1060 PRINT:PRINTTAB(15)"BY"
  154. 1070 PRINT:PRINTTAB(14)"METZ"
  155. 1080 FORX=1TO2000:NEXT
  156. 1090 PRINT"[147]"
  157. 1092 GOSUB1200
  158. 1094 RETURN
  159. 1100 S=54272
  160. 1110 POKE54296,15:POKE54277,18:POKE54278,240
  161. 1120 POKE54276,33
  162. 1130 FORI=1TOLEN(A$):POKE54273,I+40
  163. 1140 PRINT""Z$;LEFT$(A$,I)
  164. 1150 X=X-1:NEXT:FORG=4TO0STEP-1:POKE54296,G:NEXT:POKES+4,32
  165. 1160 FORE=STOS+28:POKEE,0:NEXT:RETURN
  166. 1200 PRINT"PERSEUS IS TRYING"
  167. 1210 PRINT"TO HELP ANDRONOMEA"
  168. 1215 PRINT"TO DO THIS HE MUST"
  169. 1217 PRINT"REACH THE MAGIC BOX"
  170. 1220 PRINT"5 CROSSINGS ARE NEEDED"
  171. 1222 PRINT:PRINT"BUT"
  172. 1224 PRINT:PRINT"NEPTUNE HAS PLACED"
  173. 1225 PRINT"AN OBSTACLE"
  174. 1227 PRINT:PRINT"THE OCTOPUS"
  175. 1230 PRINT"HIT 'H' TO MOVE LEFT"
  176. 1240 PRINT"HIT 'K' TO MOVE RIGHT"
  177. 1245 PRINT"LEVEL1,2,OR3
  178. 1247 [133]LL:[139]LL[178]1[176]LL[178]2[176]LL[178]3[167] [142]
  179. 1250 [153]:[153]"HIT RETURN TO CONTINUE"
  180. 1260 [161]R$:[139]R$[178][199](13)[167][142]
  181. 1270 [137]1260
  182.